Top 10k strings from Crash Tech Tape (1988)(Crash)(Side A).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
4 s+length-1
3 s=RAMtop-length+1
3 Tech Tape front end
3 Address too high
3 Address already CLEARed
3 ;"CRASH Tech Tips special March 88":
3 "Code address? (";(length);" bytes needed)Enter 0 to use highest free RAM:";s
2 p(i)=-p(i):
2 Recover start address
2 Address too low
2 ,ll,lh,205
1 sl=s-sh*256
1 p(i)=p(i)+1
1 o,o;"An optimising BASIC compiler forthe Sinclair Spectrum computer"
1 length=384
1 length=288
1 l=getp-h*256
1 getp=s+323
1 for the CRASH TECH TAPE
1 enhancements added by
1 by Paul Bullough
1 ZIP2C
1 ZIP LOADERk
1 ZIP HAS FINISHED (!'
1 ZIP FOUND !
1 ZIP 2 ZX BASIC COMPILER Pass 1.>
1 With corrections and
1 WRONG INPUT FORMAT>
1 Very good equipment is needed to use speed 3, +100% !
1 Variable name!
1 To trap non-existent variable names in INPUT, POKE 23728,1. Use POKE 23738,0 when testing, so that 'variable not found' typing mistak?s are reported!
1 Test trap for this code
1 TURBO TAPEb
1 TRAPPER +
1 TOO COMPLEX>
1 Store SNG's code to get parameters off the maths stack
1 Skip operand
1 Simon N Goodwin
1 See useful REMs at end
1 Save: SAVE "?" CODE !
1 STAR BASE4
1 STAR BASE!">
1 Run: RANDOMIZE USR !
1 Relocate code in RAM - crude, but much more reliable than the original code submitted!
1 Relocatable COPY code
1 Recover CLEARed vars
1 ROM Tape code extractor
1 PEEK 23681 gives the error code less 1 : 255= 0 OK, 0= 1 NEXT without FOR, 1= 2 Variable not found ... 8= 9 Invalid argument
1 Originally by Tom Price
1 Nothing very thrilling here I'm afraid
1 Not a good line number
1 NOT UNDERSTOOD>
1 NOT ALLOWED>
1 Machine code length
1 Machine code
1 MAIN-4 address; return from CALL PROG-RUN in 48K BASIC ROM
1 M/code by Simon Salwan
1 Insufficient memory.>
1 GETPARAM code
1 Find the line number where the error occurred with PEEK 23662+256*PEEK 23663; the statement number is at PEEK 23664
1 Faulty DIM statement.>
1 FX code in print buffer
1 ERROR/BREAK trapping
1 Decimal values & integers beyond+/-65535
1 Created with Ramsoft MakeTZX
1 COMPILING LINE (0 bytes)>
1 CALCULATION !,
1 By Simon N Goodwin">
1 BASIC by Simon Goodwin
1 All rights reserved
1 Address too low - must be in uncontended RAM
1 Adapted March 8th 1988
1 ;"Version 2.4"
1 ;"TURBO TAPE":
1 ;"TURBO TAPE"
1 ;"TURBO CASSETTE LOAD/SAVE CREATOR"
1 ;"TRAPPER":
1 ;"TRAPPER"
1 ;"Storing calling code...",
1 ;"STAR BASE!"'''
1 ;"SERIAL 8056 SCREEN COPY ROUTINE"
1 ;"Relocating code in RAM...",
1 ;"NOW LOADING"
1 ;"GAME OVER!"
1 ;"Copying ROM to RAM..."
1 ;"By Simon N Goodwin"''" An 80 line ZX BASIC ZIP demo"'''
1 ;"8056 LOAD":
1 ;"8056 LOAD"
1 ;"48K/128K BREAK and ERROR trapper"
1 ;",0 before the call."
1 ;" STOP THE TAPE then press a key "
1 ;" STAR BASE! HYPERSPACE SCANNER "
1 ;" PLAY THE TAPE "
1 ;" Copyright 1988 Paul Bullough "
1 ;" to turn OFF"
1 ;" Copyright 1987 Simon Salwan "
1 ;" AMMO=500 SCORE=0 ";
1 ;" Control keys... 0 Fire"''" 7 Clockwise 6 Anticlockwise"''''" Enter Delay factor (0=fastest)"
1 9= A Integer out of range, 10= B Nonsense in BASIC, and so on up to 26= R Tape loading error
1 8056 Serial printer
1 8056 LOAD
1 8056 CODE
1 48K or 128K BASIC
1 1984SNG&JAS|
1 1984SNG&JAS
1 128 BASIC ROM paging ONERR address, in the printer buffer
1 ,o;"By Simon N Goodwin & Jon A SmithFor further info read TECH TIPS!"
1 **** READ KEYBOARD
1 **** RANDOMish NUMBER
1 **** MOVE ENEMIES
1 **** MAKE AN ENEMY
1 **** MAIN LOOP
1 **** INITIALISATION
1 **** GAME OVER FX
1 **** CONVERT VECTOR
1 () WAS NOT DIMENSIONED>
1 'length;" code bytes loaded at ";s
1 ''"Code loaded. To COPY the screen to the serial port, type:"
1 '"VERIFY: LET T= S = L +USR ";s+366
1 '"Trapping is turned OFF after alldirect commands, so these callsmust be INSIDE your program."
1 '"To return to single width outputPOKE ";s+47
1 '"SEARCHING for 8056 CODE file"''
1 '"SAVE: LET T= S = L +USR ";s+375
1 '"S=Start address, L=No. of bytes to be saved in a headerless file"
1 '"RANDOMIZE USR ";s;" to turn ON"
1 '"RANDOMIZE USR ";s+118
1 '"RANDOMIZE USR ";s
1 '"ON ERROR GO TO ";l;
1 '"LOAD: LET T= S = L +USR ";s+357
1 '"For double width printouts, typePOKE ";s+47
1 '"384 code bytes stored at ";s
1 "Type the line number you want toGO TO when an error is detected:";l
1 "Enter speed factor: 0=Std. speed1= +20% 2= +50% ";f
1 "Enter loading border colour, 0-70=Black, 1=Blue .. 7=Std: ";b
1 "EEK! Error ";
1 "Are you using 128K BASIC (Y/N) ?(type N to use 48K BASIC): ";k$
1 "8056 CODE"
1 " (128K)"
1 not allowed.>
1 ZIP DEMO GAME
1 STAR BASE! HYPERSPACE SCANNER ">
1 LINES scanned: !
1 Enter Delay factor (0=fastest)">
1 7 Clockwise 6 Anticlockwise">
1 1988 Tom Price & Simon Goodwin"
1 1984,5,8";
1 1984 Simon N Goodwin
1 An 80 line ZX BASIC ZIP demo">
1 AMMO=500 SCORE=0 "!
1 Control keys... 0 Fire">